*Change the file path to your directory"
*Use FigureS6.dta in order to generate Figure S6: Credibility by Party ID

use "/FigureS6.dta"

*Generate the bar graph
twoway (bar mean fixgraph if partyid ==1 & fixgraph>2, color(maroon)) (bar mean fixgraph if partyid ==2 & fixgraph>2, color(navy))(rcap high low fixgraph if fixgraph>2), legend (row(1) order(1 "GOP" 2 "Dems" )) xlabel(4.5 "Original" 7.5 "AI" 10.5 "Disclaimer AI") xtitle("Generator") ylabel(0(.2)1) graphregion(color(white))
